CyberMycha Extra 2004 January/CyberMycha Extra 1-2004 (Poland) (Disc 2).bin/Pippi/common.cst/00030_clickEffectsOnce.ls

Text File | 2001-09-04 | 495 b | 41 lines

property meSprite, xDone

on beginSprite me
  meSprite = sprite(me.spriteNum)
  meSprite.static = 1
  xDone = 0
end

on mouseUp me
  if xDone = 0 then
    xDone = 1
    if meSprite.playing = 0 then
      meSprite.static = 0
      meSprite.play()
    end if
  end if
end

on setStatic me
  if meSprite.playing = 0 then
    meSprite.static = 1
  end if
end


on mouseEnter me
  if xDone = 0 then
    cursor[500, 501]
  end if
end


on mouseLeave me
  cursor 0
end

on endSprite me
  cursor 0
end